home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / Src / Ch1 / Right.frm (.txt) < prev    next >
Visual Basic Form  |  1999-03-15  |  2KB  |  54 lines
  1. VERSION 5.00
  2. Begin VB.Form frmRight 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00FFFFFF&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "Right"
  7.    ClientHeight    =   1185
  8.    ClientLeft      =   4590
  9.    ClientTop       =   2325
  10.    ClientWidth     =   1695
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    PaletteMode     =   1  'UseZOrder
  15.    ScaleHeight     =   1185
  16.    ScaleWidth      =   1695
  17.    ShowInTaskbar   =   0   'False
  18.    Begin VB.Menu mnuFile 
  19.       Caption         =   "&File"
  20.       Begin VB.Menu mnuFileExit 
  21.          Caption         =   "E&xit"
  22.       End
  23.    End
  24. Attribute VB_Name = "frmRight"
  25. Attribute VB_GlobalNameSpace = False
  26. Attribute VB_Creatable = False
  27. Attribute VB_PredeclaredId = True
  28. Attribute VB_Exposed = False
  29. Option Explicit
  30. ' Make the form's interior area one inch square.
  31. Private Sub Form_Load()
  32. Dim extra_wid As Single
  33. Dim extra_hgt As Single
  34. Dim i As Single
  35.     ' Size the form.
  36.     extra_wid = Width - ScaleWidth
  37.     extra_hgt = Height - ScaleHeight
  38.     Me.Width = 1440 + extra_wid
  39.     Me.Height = 1440 + extra_hgt
  40.     ' Draw some squares.
  41.     Scale (0, 100)-(100, 0)
  42.     For i = 10 To 90 Step 10
  43.         Line (0, i)-(100, i)
  44.         Line (i, 0)-(i, 100)
  45.     Next i
  46. End Sub
  47. Private Sub Form_Unload(Cancel As Integer)
  48.     If Not frmWrong Is Nothing Then _
  49.         Unload frmWrong
  50. End Sub
  51. Private Sub mnuFileExit_Click()
  52.     Unload Me
  53. End Sub
  54.